Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/ocx/webster/16-bit/vb_props.txt

Text File | 1995-07-30 | 7KB | 317 lines

'===============================================================
' Type Library: WebsterLib, Library Version 1.000
' GUID: {FF0A47B3-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000000
' Documentation: Webster OLE Custom Control module
' Help: (not available) (Help ID: 0X00000000)
'===============================================================

'===============================================================
' Type Info: _DWebster, TypeInfo Version 0.000
' GUID: {FF0A47B1-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: Dispinterface
' Documentation: Dispatch interface for Webster Control
'---------------------------------------------------------------

' Function: Refresh
'
Declare Sub Refresh ()

' Function: SaveToDisk
'
Declare Function SaveToDisk (ByVal FileName As String) As Integer

' Function: Cancel
'
Declare Function Cancel () As Integer

' Function: GetContentSize
'
Declare Function GetContentSize (ByVal URL As String) As Long

' Function: GetContentSizeRead
'
Declare Function GetContentSizeRead (ByVal URL As String) As Long

' Function: GetContentType
'
Declare Function GetContentType (ByVal URL As String) As String

' Function: GetRedirectedURL
'
Declare Function GetRedirectedURL (ByVal URL As String) As String

' Function: GetHiddenFlag
'
Declare Function GetHiddenFlag (ByVal URL As String) As Integer

' Function: SetHiddenFlag
'
Declare Function SetHiddenFlag (ByVal URL As String, ByVal Hidden As Boolean) As Integer

' Function: DismissPage
'
Declare Function DismissPage (ByVal URL As String) As Integer

' Function: GetLinkCount
'
Declare Function GetLinkCount (ByVal URL As String) As Long

' Function: GetLinkURL
'
Declare Function GetLinkURL (ByVal URL As String, ByVal Index As Long) As String

' Function: GetContent
'
Declare Function GetContent (ByVal URL As String, ByVal StartOffset As Long, ByVal Length As Long) As String

' Function: GetStatus
'
Declare Function GetStatus (ByVal URL As String) As Integer

' Function: GetTitle
'
Declare Function GetTitle (ByVal URL As String) As String

' Function: GetText
'
Declare Function GetText (ByVal URL As String, ByVal StartOffset As Long, ByVal Length As Long) As String

' Function: LoadPage
'
Declare Function LoadPage (ByVal URL As String, ByVal Hidden As Integer) As Integer

' Function: GetTextSize
'
Declare Function GetTextSize (ByVal URL As String) As Long

' Function: AboutBox
'
Declare Sub AboutBox ()

' Variable/Constant: BorderStyle
'
Dim BorderStyle As Integer

' Variable/Constant: Font
'
Dim Font As PTR to USERDEFINED

' Variable/Constant: hWnd
'
Dim hWnd As USERDEFINED

' Variable/Constant: Enabled
'
Dim Enabled As Boolean

' Variable/Constant: BevelStyleInner
'
Dim BevelStyleInner As Integer

' Variable/Constant: BevelStyleOuter
'
Dim BevelStyleOuter As Integer

' Variable/Constant: BevelWidth
'
Dim BevelWidth As Long

' Variable/Constant: FontHeading1
'
Dim FontHeading1 As PTR to USERDEFINED

' Variable/Constant: FontHeading2
'
Dim FontHeading2 As PTR to USERDEFINED

' Variable/Constant: FontHeading3
'
Dim FontHeading3 As PTR to USERDEFINED

' Variable/Constant: FontHeading4
'
Dim FontHeading4 As PTR to USERDEFINED

' Variable/Constant: FontHeading5
'
Dim FontHeading5 As PTR to USERDEFINED

' Variable/Constant: FontHeading6
'
Dim FontHeading6 As PTR to USERDEFINED

' Variable/Constant: FontMenu
'
Dim FontMenu As PTR to USERDEFINED

' Variable/Constant: FontDir
'
Dim FontDir As PTR to USERDEFINED

' Variable/Constant: FontBlockQuote
'
Dim FontBlockQuote As PTR to USERDEFINED

' Variable/Constant: FontExample
'
Dim FontExample As PTR to USERDEFINED

' Variable/Constant: FontPreformatted
'
Dim FontPreformatted As PTR to USERDEFINED

' Variable/Constant: FontListing
'
Dim FontListing As PTR to USERDEFINED

' Variable/Constant: FontNormal
'
Dim FontNormal As PTR to USERDEFINED

' Variable/Constant: FontAddress
'
Dim FontAddress As PTR to USERDEFINED

' Variable/Constant: BevelColorTop
'
Dim BevelColorTop As USERDEFINED

' Variable/Constant: BevelColorDark
'
Dim BevelColorDark As USERDEFINED

' Variable/Constant: BevelColorLight
'
Dim BevelColorLight As USERDEFINED

' Variable/Constant: UrlWindowStyle
'
Dim UrlWindowStyle As Integer

' Variable/Constant: TitleWindowStyle
'
Dim TitleWindowStyle As Integer

' Variable/Constant: PageURL
'
Dim PageURL As String

' Variable/Constant: PageTitle
'
Dim PageTitle As String

' Variable/Constant: AnchorColor
'
Dim AnchorColor As USERDEFINED

' Variable/Constant: HomePage
'
Dim HomePage As String

' Variable/Constant: DownloadDir
'
Dim DownloadDir As String

' Variable/Constant: PagesToCache
'
Dim PagesToCache As Long

' Variable/Constant: BackColor
'
Dim BackColor As USERDEFINED

' Variable/Constant: IgnoreBaseInFile
'
Dim IgnoreBaseInFile As Boolean

' Variable/Constant: LoadStatus
'
Dim LoadStatus As Integer

' Variable/Constant: ForeColor
'
Dim ForeColor As USERDEFINED

' Variable/Constant: MaxSockets
'
Dim MaxSockets As Long

' Variable/Constant: MaxPageLoads
'
Dim MaxPageLoads As Long

' Variable/Constant: MarginHorizontal
'
Dim MarginHorizontal As Long

' Variable/Constant: MarginVertical
'
Dim MarginVertical As Long

' Variable/Constant: LoadImages
'
Dim LoadImages As Boolean

' Variable/Constant: ShowReferer
'
Dim ShowReferer As Boolean

' Variable/Constant: AuthenticName
'
Dim AuthenticName As String

' Variable/Constant: AuthenticPassword
'
Dim AuthenticPassword As String

' Variable/Constant: FromName
'
Dim FromName As String

' Variable/Constant: BrowserName
'
Dim BrowserName As String

' Variable/Constant: ButtonMask
'
Dim ButtonMask As Long

' Variable/Constant: ProxyServerHTTP
'
Dim ProxyServerHTTP As String

' Variable/Constant: ProxyPortHTTP
'
Dim ProxyPortHTTP As Long

'===============================================================
' Type Info: _DWebsterEvents, TypeInfo Version 0.000
' GUID: {FF0A47B2-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: Dispinterface
' Documentation: Event interface for Webster Control
'---------------------------------------------------------------

' Function: DoClickURL
'
Declare Sub DoClickURL (ByRef SelectedURL As Variant, ByRef Cancel As Variant)

' Function: KeyDown
'
Declare Sub KeyDown (ByRef KeyCode As Variant, ByVal Shift As Integer)

' Function: LoadComplete
'
Declare Sub LoadComplete (ByRef URL As Variant, ByVal Status As Integer)

'===============================================================
' Type Info: Webster, TypeInfo Version 0.000
' GUID: {FF0A47B0-5CAC-11CE-ACAF-00AA004CA344}
' LCID: 0X00000409
' TypeKind: CoClass
' Documentation: Webster Control
'---------------------------------------------------------------